with Ada.Assertions; use Ada.Assertions;

separate(Test_Headers_Parser)

--
-- test parse headers function
--

procedure Test_Parse_Content
is

   Content_Found : constant String := Headers_Parser_Pkg.Parse_Content(

         Read_Test_Data_File );

begin

   Assert( Content_Found'Size > 0, "Empty content" );

   Assert( Content_Found'Size > 50, "Size of content too small" );

   Assert( not GNAT.Regexp.Match( S => Content_Found,
                                  R => Test_Header_RegEx ),

           "Found header in content" );

   Assert( GNAT.Regexp.Match( S => Content_Found,
                              R => Test_Html_RegEx ),

           "Did not find expected html in content" );

end Test_Parse_Content;

